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SSB BASIC 


INTRODUCTION 


SSB's Disk File Handling BASIC, DFB-68, was written to conform 
closely to the proposed ANSI standard, thus allowing the user to 
run standard BASIC programs with few, if any, changes. In 
addition, many new commands have been added to make programming 
easier, and to keep your source code to a minimum, SSB BASIC 
supports many transcendental functions, allows programs and data 
to be saved on disc, and implements file handling capability. 


Complete documentation for input and output’ character routines is 
provided so as to allow easy adaptation for special I/O features, 


BASIC is distributed in three versions, These are named on the 
disk as follows: 


BASIC.$ for use with DOS68 in the S$6080-S7FFF range 
BASICA.$ for use with DOS68 in the SA9@@-SBFFF range 
BASICC.$ for use with DOS68 in the $COBO-SDFFF range 


To run BASIC, simply put the disk containing BASIC into drive @ 
and type BASIC followed by a carriage return. (This assumes you 
are using DOS68 at S$660@-S7FFF.) 


LICENSE 


The Smoke Signal BASIC, in all machine readable formats, and 
written documentation accompanying them are copyrighted. The 
purchase of SSB BASIC, or the purchase of a disc system with 
which SSB BASIC is distributed without additional charge, conveys 
to the purchaser a license to copy BASIC for his/her own use on 
any disc system manufactured by Smoke Signal Broadcasting, and 
not for sale or free distribution to others. No other license, 
expressed or implied is granted. 


WARRANTEE INFORMATION 


The license to use SSB BASIC is sold AS IS without warrantee. 
This warrantee is in lieu of all other warrantees expressed or 
implied. Smoke Signal Broadcasting does not warrant’ the 
Suitability of BASIC for any particular user application and will 
not be responsible for damages incidental to its use in a user 
system. : 
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MODES OF EXECUTION 


BASIC has two modes of execution - the immediate (or direct) mode 
and the program mode. In the program mode, BASIC executes a_ set 
of instructions that has been stored prior to execution. In the 
immediate mode, BASIC executes commands at the time they are 
entered from the terminal. 


The BASIC interpreter determines whether a statement is intended 
for immediate execution or for storage as part of the program 
solely on the basis of whether or not the statement was entered 
with a line number. Statements having line numbers are stored 


for later execution; those without line numbers are executed 
immediately. Thus the line: 


18 PRINT "SSB BASIC" 


will produce no response at the terminal until the program is 
executed. The line: 


PRINT "SSB BASIC" 
however, causes the terminal to respond immediately with: 
SSB BASIC 


By uSing statements without line numbers BASIC can be uSed as a 
sophisticated calculator. For example, 


PRINT (17*2.83) * (7/4) 
will cause BASIC to immediately respond with: 

89.14 
Another use for immediate mode execution is as an aid in program 
developement and debugging. Through the use of direct statement 


execution, program variables can be read or altered, and the 
program flow may be directly controlled, 
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PROGRAM STATEMENTS 


A BASIC program is made of a series of program lines. Each line 
must begin with a line number followed by one or more _ BASIC 
Statements and terminated with a carriage return. The following 
are several rules that must be followed in writing a BASIC 
program: 


l. Every line must have a line number ranging between 1 = and 
9999, Line number @ may not be used, 


2 Line numbers are used by BASIC to arrange the program lines 
sequentially. The program will be executed in order of 
increasing line number regardless of the order in which they 
where entered. 


3. A line number may be used only once in any given program. 


4. A previously entered line may be changed by simply 
re-entering the same line number along with the corrected 
line. Typing a line number followed immediately by a 
carriage return deletes that line. 


56 Program lines need not be entered in numerical order because 
BASIC will automatically put them in ascending order. 


6. A line cannot contain more than 8@ characters including 
spaces. 


Te Spaces are not processed by BASIC unless they are part of a 
character string (i.e., enclosed in quotation marks). The 
use of spaces is optional. The line 16 LET A = 10 is 
the same as the line 1@LETA=198. Spaces make the line more 
readable, but take longer for the interperter to process and 
consume more memory. Numbers may not contain imbedded 
spaces. 


8. Multiple statements on a single line are permitted and must 
be separated by a colon ":", The statements are processed 
from left to right. For example: | 


18 A=4: B=7: C=A+B: PRINT C 
is equivalent to: 

18 A=4 

28 B=7 


38 C=A+B 
49 PRINT C 
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DATA FORMAT 


The range of numbers that can be represented is 1.8 E-99 to 
9.99999999 E+99 where E+99 represents 18 to the power 99, 


Number are retained to an accuracy of nine decimal digits and are 
internally truncated (last digit dropped) to fit this format. 
Numbers may be entered and displayed in three formats: integer, 
decimal, and exponential. For example: 


1234 12,34 1234 E-2 


NUMERIC VARIABLES 


Variables are represented in a statement by any single alphabetic 
character or any Single alphabetic character followed by a number 
8 through 9, 


Examples: xX, Y, Z, X3, Q8 


STRING VARIABLES 


String variables may contain a maximum of 128 characters. A 
string length command is available which allows .the maximum 
String length to be set at the beginning of the program. If the 
string length is not explicitly defined using the STRING command, 
BASIC assumes a string length of 32 characters. Refer to the 
STRING command description for a detailed description of its use. 


Examples of string variables: xX$, Y$(7), 2$(3,2) 


These string variables are all distinct from numeric variables 
having the same name. For example, X=9082, XS="POLLY", Y(5)=23, 
and Y$(5)="CRACKERS" are all legal and may appear in the _ same 
program. _* 


STRING CONCATENATION 


Strings may be concatenated (joined together) using the 
concatenation symbol "+", 


For example: 


19 x$="SSB" 
20 Y$=" BASIC" 
38 Z$=xX$ + YS 
48 PRINT ZS 


Will print: SSB BASIC 
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The total length of the strings to be concatenated may not exceed 
the maximum string length either set by default or by the use of 
the STRING command. 


CONTROL FUNCTIONS 


Control characters such as CONTROL C or CONTROL X are typed by 
holding down the CTRL key while typing the specific letter. 
Control characters are not displayed on the terminal but are 
accepted by the computer. The control functions may be assigned 
different characters more suitable to the user's’ system. Refer 
to the appendices for specific details. 


BREAK 


Typing CONTROL C will cause BASIC to halt its current operation 
and to respond with "BASIC#". BASIC will then accept additional 
commands. CONTROL C may be used to stop a LIST operation which 
is in progress before it is completed, or to halt the execution 
of a program. If an MP-C card is being used as the terminal 
interface, the user may have to hit CONTROL C several times 
before the terminal will respond. 


LINE CANCEL 


Typing CONTROL X clears the current contents of the line buffer. 
If an error is made while making any entry on the terminal, 
either during program entry or data input during a program, this 
character can be used to delete the line. The user may then 
re-enter the line followed by a carriage return. Once a carriage 
return has been entered, however, the CONTROL X will no_ longer 
delete the line. 


BACKSPACE OO 


The CONTROL H (backspace) is used as a single character back 
Space function. When a character has been typed in error, either 
during program entry or data input during a program, it may _ be 
corrected by typing ‘the CONTROL H followed by the entry of the 
correct character. You may backspace as many character positions 
as necessary. 


REPEAT 
Typing CONTROL D will cause whatever is in BASIC'S input buffer 


to be again used as a line of input. This feature works in the 
immediate mode and its value is for the user to establish. 
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HALT 


With some of the operating systems (SMARTBUG), typing the rub-out 
character (Hex $7F) will cause processing to halt. This applies 
to both commands used in the immediate mode and while a program 
is running. To continue processing type any character but a 
rub-out or a CTL C. 


BASIC COMMANDS 


It is possible to communicate with the computer in BASIC by 
typing commands directly on the keyboard of the terminal. Also, 
Many statements can be executed directly using the direct mode of 
operation described earlier. In addition, there are several 
commands which may be used by the operator in order to list 
programs, run programs, save Or load programs, etc. When BASIC 
is ready to recieve commands, "BASIC#" will be displayed on the 
terminal, After each entry, the system will prompt the operator 
with a "#", 


Commands are typed on the terminal without using statement 
numbers, After the command has been executed, "BASIC#" will be 
displayed indicating that BASIC is’ ready to receive another 
command from the operator. 


LIST 


This command displays the lines of the current program on the 
terminal. The lines are listed in ascending numerical order by 
line number. A single line may be listed, or all lines within a 
given range may be listed. For example: 


LIST List the entire program. 

LIST 38 List only statement 39. 

LIST 30-198 List statements 38 through 108. 

LIST #4 List entire program on terminal/printer 


connected to I/O Port #4, 


RUN 


Typing RUN, followed by a carriage return, causes the program 
which is currently in memory to be executed starting with the 
lowest line numbered line. The RUN command resets all program 
parameters and initializes all variables to zero. 
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CONT 


The CONTinue command causes program execution to be resumed after 
a STOP statement has been executed, If a program has_ been 
interrupted using a "break" (control C) command, execution may be 
resumed by typing CONT followed by a carriage return. This 
command should not be used if a program error had _ been 
encountered or if the program has beem_ changed, The program 
parameters are not changed by this command. 


NEW 
This command causes the user program area and all variables’ and 
pointers to be reset. The effect of this command is to erase all 
traces of the previous program from memory in preparation for a 
new program. The SSB identification and BASIC version number 
will print, followed by "BASIC#", 


TRACE 


The TRACE feature is a useful debugging tool. Typing TRACE 
causes BASIC to display to the terminal the line number of each 
statement as it is executed. This allows the user to follow the 
sequence in which the program is being executed. Typing TRACE 
again returns the system to its normal mode of operation. fThe 
TRACE command may be inserted anywhere in the program, or 
executed in the direct mode. 


SIZE 
The SIZE command returns the following information to the control 
ports: 


AVAIL=(size of available memory in decimal) 
PROG= (size of program in decimal) | 
VAR=(size of variable storage area) 


MON 


This command causes the computer to return to the resident ROM 
monitor in the-computer system. _In the case of MIKBUG this will 
output a carriage return, line feed, and the "*" prompt 
character. If the program counter address (stored in S$A948 and 
$AG49) is not altered, then typing "G" will restart BASIC leaving 
the user's BASIC program intact. The MON command may be inserted 
as a statement within a BASIC program. 
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DOS 


The DOS command functions identically as MON except that control 
is return to DOS68. 


PORT 


The command PORT = N defines the I/O port which will serve as 
the control port. N can be a constant, a variable, or an 
expression. All messages, including BASIC's "BASIC#" will be 
sent to the port assigned by the PORT command and the BASIC 
program will expect all input from that port. 


BEWARE 
If a port without a terminal is defined as 
the control port, you will lose control of 
your program. Breaks will always be accepted 
from the control port. 


FLIST 


The FLIST (file list) command allows the BASIC user to list’ the 
file names stored in the disk directory without exiting to DOS68. 
The format of this command is: FLIST [#<port number>][,<unit 
number>]. Typing FLIST alone lists the files stored on disk drive 
®@. FLIST 2 will list the file directory on disc 2, FLIST #4,1 
will list the disc file directory for disk drive 1 on port 4. 
FLIST will not list the transient commands found in the _ disk 
directory. . *@ 


FDEL 
The FDEL (file delete) command allows the user to delete disc 
files without exiting back to DOS68 to use the DELETE command. 
The format of the FDEL command is: FDEL,<file list>. 

FREN 
The FREN (file rename) command functions just as the DOS68 RENAME 


command does to change the name of a disc file. The command 
format is: FREN,<old file name>,<new file name>. 
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HOUSEKEEPING COMMANDS 


The following three commands, LINE, DIGITS, and STRING allow. the 
user to define the associated parameters. Once these commands 
are used, the values assigned remain the same until the commands 
are used again or BASIC is reload from the disc. LINE and DIGITS 
can be used more than once during a program; STRING cannot. 
Although these parameters have default values, the default values 
are not asserted after each program. Once these commands are 
used, the values remain in affect until they are explicity 
changed. 


LINE 


The LINE command specifies the number of print positions in a 
line. For example, LINE = 48 defines a line to be 48 characters 
long. While printing, if the next position is within the last 
25% of the line length and a space is printed, a carriage 
return/line feed will be issued. This is done so that a number 
or word will not be divided at the end of a print line. To 
inhibit this function, just set the line length equal to more 
than 125% of the actual desired line length. Setting the line 
length to zero also disables this function. 


DIGITS 


This command is used to specify the number of digits to be 
printed to the right of the decimal point. Any digits that 
appear beyond the number specified will be truncated. If there 
are not enough digits to fill the given length, zeros will be 
used. DIGITS = @ resets the system to the floating point mode. 


STRING 


Executing the command STRING = N will set the maximum string 
length to N characters, BASIC will now reserve N bytes in memory 
for all string variables -regardless of the actual number of 
characters which are entered for any particular variable. A 
maximum of 128 characters is allowed. If the STRING command is 
not used, BASIC will assume the default value of 32 characters, 
The STRING command can be used only once during a program and, if 
used, must appear before reference to any string variable is 
made. For these reasons the user is advised to place the STRING 
command at the very beginning of his program in a one-time-only 
"housekeeping" type routine. . 
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BASE 


The command BASE=@ will cause array subscripts to begin with the 
number @. The command BASE=l will cause array subscripts to 
begin with the number 1 which is the default value. To conform 
to the proposed ANSI standard, the BASE command may be entered in 
the format: OPTION BASE=. 


HOME 
The HOME command will send the home-up and clear-to-end-of-frame 
sequence to the output device. Appendix F contains the location 


of where this string is located to allow you to change this to be 
compatable with your system. 


SKIP 


The SKIP command is used to skip X print lines. SKIP eliminates 
the need to use multiple PRINT statements. ‘'X' must be a decimal 
value between 1 and 255. This command sends BASIC's carriage 
return line feed sequence to the output device. Appendix F gives 
the location of this sequence for your reference and 
modification. 


WAIT 


The WAIT command provides the user with an easy way to program 
wait loops. ‘'X' is a decimal value between 1 and 255. The 
length of time represented by the value 1 is dependent upon the 
the speed of the user's processor (usually between .5 and .9 
seconds). A WAIT loop can be interrupted by the BREAK command. 


RJUST 


The value of 'X' in the command RJUST=X is the number of print 
positions to the left of the decimal point when printing a 
number. Leading zeros in the field are printed as blanks. 


SAVING AND LOADING BASIC PROGRAMS 


SSB BASIC was written to allow for convenient use of the BFD-68 
disc system. This section describes how to save and load 
programs with the disc’ system. Also, cassette commands are 
included to provide an easy transition to disc files. 
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SAVE 


This command is used to save programs to disk. To save a file, 
the user can type either SAVE "filename" or SAVE followed by a 
carriage return. BASIC will prompt you for the file name if you 
did not enter it. 


LOAD 
This command is‘used to load a program from disk. The format of 
this command is the same as for SAVE. 

APPEND 
This command also loads programs into memory as does LOAD except 
that the current contents of memory are not cleared out. The 


program which is loaded is "appended" (added) to the end of the 
program already in memory. 


CHAIN 


The CHAIN command allows one BASIC program to call another BASIC 
program. The called program will automatically begin execution. 
The format of the CHAIN command is the same as SAVE and LOAD. A 
practical example of the use of the CHAIN command would be to 
have a master program call various selected programs which chain 
back to the master program after execution. 


TSAVE 


The TSAVE command allows the user to dump the current BASIC 
program to cassette tape. The TSAVE command is similiar to the P 
command of MIKBUG - punch on/off commands are automatically sent 
to the recording device. The cassette interface can be used in 
either a manual or automatic motor control mode. If in the 
Manual mode, the recorder should be turned on prior to pressing 
carriage return, after typing the TSAVE command. MTSAVE will 
Output the entire BASIC source buffer onto the recording device. 
The source buffer in memory is unchanged by the TSAVE command. 


TSAVE allows a single letter file name to be entered in the 
following format: TSAVE Dor TSAVE #3 D. This letter will be 
Output to the tape ahead of the source program. 


TLOAD 


The TLOAD command allows for the entering of previously recorded 
BASIC programs from cassette tape. The TLOAD command is similiar 
to the L command of MIKBUG - reader on/off commands are 
automatically sent, and either manual or automatic motor control 
can be used on the cassette interface. Typing TLOAD, followed by 
a carriage return, will transfer the source program from tape to 
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the BASIC source buffer. The buffer is automatically cleared at 
the beginning of a TLOAD command. 


If TLOAD is used with the filename option (TLOAD D or TLOAD #3 D) 
only a source program with that file name will be loaded, If a 


file name was not specified, the first source program encountered 
will be loaded. 


TPEND 


The TPEND command is identical to the TLOAD command except that 
the current BASIC buffer is not cleared, 


The TSAVE, TLOAD, and TPEND commands can all be used to work with 
any port. If, for example, your cassette recording device is on 
the ACIA port two, a TSAVE #2 command would be used. — 


NOTE: If your cassette interface does not have automatic motor 


control, you will have to manually turn the motor on and off when 
uSing the above commands. 
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ARITHMETIC OPERATORS 


BASIC performs addition, subtraction, multiplication, division, 
and exponentiation. Mathematical expressions are evaluated from 
left to right using the following operator precedence. 
Parentheses may be used to override this normal precedence of 
Operators. 


1) Exponentiation 

2) Negation 

3) Multiplication and division 
4) Addition and subtraction 


The mathematical operators are symbolized as follows: 
“ _ Exponentiation (up arrow character) 
Negate (unary minus) 

Multiplication 

Division 

Addition 

Subtraction 


i re | 


No two mathematical operators may appear in sequence, and no 
operator is ever assumed. For example: 


16 C = A++B 
28 (A+2) (B-3) are not valid. 


NOTE: Exponentiation with negative numbers will give 
upredicatable result. . 


RELATIONAL OPERATORS 


The following relational operators are used to compare _ two 
values. They may be used to compare arithmetic expressions or 
strings in an IF--THEN statement. 


= Equal : 
<> Not equal . 
< Less than 
> Greater than 
<= Less than or equal 
>= Greater than or equal 
Examples: 
10 IF X = Y THEN 3290 
28 IF Q > R THEN PRINT Q 
30 IF A >= 2 THEN GOSUB 168 : GOTO 209 


i 
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FUNCTIONS 


Functions are not to be confused with commands. Functions may be 
used aS expressions or as parts of expressions. Function 
arguments must be enclosed between parentheses. 


PEEK 


PEEK(X) returns the decimal value contained in the memory 
location specified by the decimal number X,. For example, the 
statement Z=PEEK (194) will assign to 2% the value of the 
contents of memory location 194 (hex C2). 


PI 


PI returns the decimal value 3.14159265. It may be used in any 
arithmetic expression. The PI function has no arguements, 


RND 


RND(X) generates a set of uniformly distributed random numbers. 
There are two ways in which RND can be used. 1) If X=0, then a 
different random number between @ and 1 will be returned each 
time RND(X) is used. 2) If X is not @, then the same _ random 
number will be returned each time RND(X) is used. If no argument 
is used then X=@ is assumed. To yield random numbers within a 
range other than @ to 1 use the following: 


19 PRINT ((J-I+1) *RND (@) +1) 


where the range of numbers is to be I through J. 


TAB 


TAB(X) moves the print position to the Xth position to the right 
of the left margin. If the print position is already to the 
right of the Xth position then no action is taken. The left-hand 


margin is print position #1. For example, to print A$ starting 
in column 25: 


228 PRINT TAB(25); AS 


The following function illustrates how a table of values can _ be 
printed with the right-hand column aligned: 


186 DEF FNA(J) = LEN(STRS (INT(J) ) ) 
26@ PRINT TAB (25-FNA (J) ) J 
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INT 


INT(X) returns the greatest integer value which is less than xX. 
For example: 


INT(8.9) returns 8 
INT (-7.2) returns -8 
ABS 


ABS(X) returns the absolute value of the expression X, For 
example: 


ABS(6.27) returns 6.27 
ABS (-6.27) returns 6.27 
SGN 
SGN(X) returns the sign (+ or -) of X. Examples: 
SGN (2.3) returns 1 
SGN(-2.3) returns -l 
SGN (8) returns 9@ 
SGN (-9) returns @ 
POS 
This function returns . the present column number of the print 
head. In fact, POS is the inverse of the TAB function. FOr 


example: 
10 PRINT TAB(1); X; 
20 IF POS = 71 THEN PRINT A$ 
LEN 


LEN(X$) returns the number of characters currently in the string 
represented by X$. Example: 


LEN ("EXAMPLE") returns 7 


ASC 


ASC(X$) returns the decimal ASCII numeric value of the first 
ASCII character within the string. For example: 


ASC ("?") returns 63 


ASC ("A") returns 65 
ASC("ABC") returns 65 
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CHRS 


CHR$(X) returns a Single character string equivalent to 
decimal ASCII numeric value of X. CHRS$ is the inverse of the 
function. Example: 


CHRS$ (63) returns 
CHRS (65) returns 


Pw 


VAL 


VAL(X$) returns the numeric constant equivalent to the string 
VAL is the inverse of the STRS$ function. An error will occur 
X$ is non-numeric. Examples: 


VAL("5E4") returns 5009 
VAL ("17.8") returns 17.8 
STRS 


STRS$(X) returns the string value of a numeric value. STRS$ is 
inverse of the VAL function. Example: 


18 LET G = 4918 + 2 
20 LET M$ = STRS$(G) 


The variable M$ would contain "4926", 


LEFTS 


the 
ASC 


X$. 
if 


the 


LEFT (X$,N) returns the string of characters from the left most to 


the Nth character of X$. For example: 


1@ LET W$ = "BIG BROWN COW" 
28 LET A$ = LEFTS (WS,5) 


The variable A$ now contains the string "BIG B". 


RIGHTS 


RIGHTS (X$,N) returns a string of characters from the Nth position 
to the left of the right most character through the right most 


character. For example: 


196 LET P$ = "BIG BROWN COW" 
20 LET A$ = RIGHTS (P§,5) 


The variable S$ now holds the string "N COW". 
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MIDS 


MIDS (A$,X,Y) returns a string of characters’ from the string 
variable AS beginning with the Xth character from the left and 
continuing for Y characters from that point. Y is optional. If 
Y is not specified, then the string returned is from the Xth 
character to the right of the beginning of the string through the 
end of the string. For example: 


10 LET PS 
20 LET AS 


"RED, BLUE,GREEN" 
MID$ (P$,3,18) 


The variable A$ now contains the string "D,BLUE,GRE"” 


IMOD 


IMOD(X,Y) returns the integer remainder of dividing X by Y. 
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TRANSCENDENTAL FUNCTIONS 


Accuracy for the following mathematical functions is retained to 
seven significant digits. The accuracy of the seventh digit is 
not guaranteed, The arguments of SIN, COS, and TAN are in 


radians rather than degrees. 


FUNCTION EXPLANATION 


SIN (X) Returns the sine of X 

COS (X) Returns the cosine of X 

TAN (X) Returns the tangent of X 

ATAN (X) Returns the arctangent of X 

LOG (X) Returns the natural logarithm of X 

EXP (X) Returns 2.718282 (e) to the Xth power. 
The inverse of LOG(X). 

SQR (X) Returns the square root of X 


USER 


The USER function is provided to allow the programmer to jump to 
a user defined subroutine from a BASIC program. The statement 
LET A = USER (X) transfers program control to a user written 
machine language program. Program control branches to the memory 
location pointed to by memory locations $28 and $29. xX is a 
numeric expression which is then stored in a 7-byte series 
beginning at a memory location pointed to by $38 and $31. This 
value may be modified by the user written machine language 
program to act as a data output from the program or as_ an 
indicator that something must. be done. The user routine must 
terminate with a $39 (RTS), thereby transferring control back to 
the BASIC interperter. Additionally, X is now set equal to the 
value stored in the seven byte series stored in memory locations 
pointed to by $3@ and $31. 


When BASIC is loaded, memory locations $28 and $29 point a 
location containing an RTS ($39) so that if the user function is 


called it simply returns control to the BASIC. interperter, You 
must modify memory locations $28 and $29 using POKE or MON 


command in order to take advantage of the USER function. 
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STATEMENTS 


This section describes statements which can be used in BASIC 
programs. 


POKE 


POKE(X,Y) stores the value of Y at location X (both X and Y are 
decimal values). This allows the user to modify specific memory 
locations during program execution. Extreme caution should be 
taken while using this statement, It is very easy to 
accidentally modify the BASIC interpreter itself which would 
cause the program, the data, and the interpreter to be destroyed! 


DIM 


The DIM (dimension) statement allows the user to explicitly 
define the size of an array. An array is a collection of 
subscripted variables or strings. ,One and two dimensional arrays 
are allowed with a maximum size of 256 X 256 elements. The DIM 
statement initializes all elements within the array to zero. 


An array can only be "dimensioned" once in a program, but need 
not be dimensioned at all. If a subscripted variable is 
encountered prior to dimensioning, a default of 18 elements is 
established for the array. Only the variables A - Z followed a $ 
may be dimensioned for string arrays. The maximum dimension size 
is 255 - which will provide an array that has 256 variable 
proisitons when BASE=9 and 255 positions when BASE=1. When 
processing under BASE=8, there is always one (1) more position in 
the array than the DIM Size. 


Examples: 
19 DIM X(38) assigns 3@ memory spaces to array X 
(room for 38 numeric variables) 
28 DIM Z (12,3) dimensions a12 X 3 array for 2 
36 DIM AS$(155) defines a 155 element string array 
- (room for 155 strings each of 
maximum string length) 
REM 


The REMark statement is a nonexecutable statement which gives the 
user the ability to document his program. By including remark 
statements with the program source the listing becomes’ more 
readable. 
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DEF 


DEF FNA(X) allows the user to define his own functions. The 
letter "A" can be any letter of the alphabet and the variable x 
must be a non-subscripted variable. Once defined, the function 
FNA(X) can be used anywhere in the program just like any other 
BASIC functions. A function must be defined before a_ reference 
is made to it. | 


DATA AND READ STATEMENTS 


Data and read statements are used together to assign values’ to 
variables within a program. Every time a data statement is 
encountered, the values in the argument field are assigned 
sequentially to the next available position of a data buffer. 
All data statements, no matter where they occur in a program, are 
combined into a continuous list. 


READ statements cause values in the data buffer to be accessed 
sequentially and assigned to the variables named in the READ 
statement. They start with the first data element from the first 
data statement, then the next element, and so on to the end of 
the first data statement, and then to the first element of the 
second data statement, etc, Each time a READ command is 
encountered, it reads the next data value that has not been 
assigned to a variable. If a READ is executed and the data 
statements are out of data, an error is generated. 


Numeric and string data may be intaretxea: However, they must be 
used in the appropriate order to assign the data to. the 
appropriate variables. DATA and READ statements may be placed 
anywhere within the program. 


String data need not be enclosed in quotes since the comma acts 
as the delimiter. However, if the string contains a comma, then 
it must be enclosed in quotes. For example: 


16 DATA JANUARY ,17,1973 
28 DATA "SMITH, BOBBY", 5 
30 READ M$,D,Y,N$ era 
48 READ A 
The statements shown above are equivalent to the following: 


16 LET M$ = "JANUARY" 


209 LET D = 17 

39 LET Y = 1973 

49 LET NS = "SMITH, BOBBY" 
5@ LET A = 5 
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RESTORE 


The RESTORE statement causes the data buffer pointer (which is 
advanced by execution of READ statements) to be reset to the 
beginning of the data buffer. For example: 


18 DATA ALVIN,17,KAREN,22 
2@ READ AS,A,BS,B 

38 RESTORE 

48 READ CS,C 


is equivalent to: 


19 LET AS = "ALVIN" : A = 17 
26 LET BS = "KAREN" : B = 22 
38 LET C$ = "ALVIN" : C = 17 


LET 


The LET statement is used to assign a value to a variable. MThe 
use Of LET is optional unless the statement is being executed in 
the immediate mode. In the immediate (or direct) mode, the LET 
is required. For example, the statement LET B=198 is the same 
as the statement B=1868. 


The equal sign does not mean equivalence as in mathematics, but 
rather the replacement operator. It means: replace the value of 
the variable name on the left with the value of the expression on 
the right side of the equal sign. The expression on the right 
can be a simple numeric value or an expression composed of 
numerical values, variables, mathematical operators, Or 
functions. 


FOR --- NEXT STATEMENTS 
The following is the format of the FOR - NEXT group of 
statements: 


19 FOR I = «ee TO ewe STEP eec 


20 
38 
49 NEXT I 
The FOR - NEXT statements are used together for setting up 


program loops. A loop. causes the execution of one or more 
statements for a specified number of times before exiting from 
the loop. The variable in the FOR statement (shown above as "I") 
is initially set to the value of the first expression. 
Subsequently, the statements following the FOR are executed. 


When the NEXT statement is encountered the STEP value is added to 
the variable and program execution is resumed at the statement 
following the FOR - TO statement. If the addition of the STEP 
results in a sum greater than the expression that follows TO, the 


NEXT instruction executed will be the one following the NEXT 
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statement. If no STEP is specified, the value of 1 is assumed, 
If the TO value is less than the initial value, the FOR - NEXT 


loop will be executed only once. For example: 


1@ FOR K=1 TO 3 STEP .5 
20 PRINT K; 

38 NEXT K 

48 PRINT “DONE” 


This example will print: 1 1.5 2 2.5 3 DONE 


Although expressions are permitted for the initial, final, and 
step values in the FOR statement, they will be evaluated only 
once (the first time the loop is entered). The same index 
variable cannot be used in two different loops if the loops are 
nested together. When the statement after the NEXT statement is 
executed, the variable is equal to the last value assigned, i.e. 
the value which caused the loop to stop. 


STOP 


The STOP statement causes the program to halt execution. BASIC 
returns to the command mode and prints "“"BASIC#". The STOP 
statement differs from the END statement in that it causes BASIC 
to display the statement number where the program stopped. The 
program can be restarted by executing a GOTO or a CONT command. 
The message displayed is STOP XXXX where XXXX is the line number 
where the program stopped. STOP is often used as a debugging 
aid. 


END 


The END statement causes the program to stop executing. BASIC 
returns to the command mode and prints "BASIC#". END may be used 
more than once and need not used at all. 


GOTO 


The GOTO statement is an unconditional branch which directs the 
program flow to the statement number specified. Note that the 
statement number may specified as being the contents of a numeric 
variable or expression. 

Examples of GOTO: 


108 GOTO 186 
208 LET L=5@8 : GOTO L 
GOTO 1088 (direct mode execution) 


GOTO I*198 
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GOSUB AND RETURN 


The GOSUB statement causes the program to branch to a specified 
statement number. It is assumed that this statement number is 
the start of a subroutine. The sequence of statements which make 
up the subroutine must be terminated with a RETURN statement in 
order to send the program back to the statement following the 
original GOSUB statement. 


A subroutine is a sequence of instructions which need to be 
executed more than once in a BASIC. program, To use such a 
sequence, a GOSUB instruction is employed. Upon completion of 
the subroutine, control is returned statement following the GOSUB 
by execution of the RETURN statement. 


A subroutine may use a GOSUB to call another subroutine which in 
turn may call another subroutine, and so on. This process is 
referred to as "nesting". Subroutine nesting is limited to eight 
levels. 


Example of the use of GOSUB and RETURN: 


19 T = @ 
28 P = 3.58: GOSUB 188: PRINT C 
38 P = 5.98: GOSUB 108: PRINT C 


49 PRINT "TOTAL ",T 
58 END ; 

108 C = P * 1.96 
119 T=T+C 

128 RETURN 


This program would output: 


3.71 
5.30 
TOTAL 9.91 


ON N GOTO OR ON N GOSUB 


This statement causes the program to branch to a specified 
statement number depending upon the value of N. N may be an 
integer value or may be an expression. If it is an expression, 
the expression will be evaluated, truncated to an integer, and 
the program will then branch to the Nth statement number. For 
example: me 


228 ON N GOTO 7089,358,498,458 


This means: 


If N = 1 GOTO 7980 
If N = 2 GOTO 358 
If N = 3 GOTO 498 
If N = 4 GOTO 4590 
If N > 4 an error will result 
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IF -~-- THEN 


The IF statement is used to control program execution depending 
upon specified conditions. If the relational expression after 
the IF is true, then the program performs the statement after the 
THEN. If the conditional after the IF is false, program 
execution continues with the statement on the next line after the 
IF --- THEN statement. The statement after THEN may be just a 
line number, which will cause program execution to GOTO the line 
specified. All multiple statements on the same line as an IF -- 
THEN will be executed if the relationship tested true. 


For example: 
1@ IF A=5 THEN GOSUB 196: GOTO 238 


This statement will perform the GOSUB and then will GOTO 2398 when 
A is equal to 5. 


The logical operators "AND" and "OR" are not supported in this 
version of BASIC but may be easily handled using the IF -- THEN 
statement. 


To perform: 

IF A=B AND C=B THEN 1868 
use the following: 

IF A=B IF C=D THEN 169 


To perform the function: 

IF A=B OR C=D THEN 189 
use the following: 
. IF A=B THEN 180 

IF C=D THEN 199 


INPUT/OUTPUT STATEMENTS 


Any INPUT or PRINT statement may be followed with an #N where N 
is the I/O port number (8-7). N may be a constant, variable, or 
an expression. If no port number is specified, the control port 
(port #1) is assumed. If any instruction follows the _ port 


number, it must be separated by a comma. For example: 


738 INPUT #2, A$ 
220 PRINT #4, X, Y, 2 


INPUT 


The INPUT statement allows the user to enter either numerical or 
String data on the terminal during program execution. For 
example, statement 19 INPUT X allows one numeric value to be 
entered. The statement 16 INPUT X$ allows one string value, 
having up to the maximum number of characters as specified by the 
string length command, to be entered. The values input are 
assigned to the variables specified in the INPUT statement. 
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Multiple inputs can be entered by separating them by commas. If 
the expected number of values are not entered, a "?" will be 
generated. The statement 19 INPUT "ENTER VALUE",X will print 
the message inside the quotes, then prompt with a "?", and wait 
for the input of the variable requested. 


When the program comes to an INPUT statement, a "?" is displayed 
on the terminal. The program then waits for the user to respond 


by entering the requested data followed by a carriage return. 


If insufficient data is entered, the system then prompts the user 
with another "?", If no data is entered, or a non-numeric 
character is entered when a numeric variable is required, the 
system will prompt the user with "RE-ENTER". 


PRINT 


The PRINT statement directs BASIC to print either the value of 
the expression, literal values, string values, or text strings on 
the terminal, The various forms of print requests may be 
combined on a single statement and separated by commas or by 
semi-colons. If the statement is terminated with a semicolon, the 
line feed/ carriage return sequence (which is normally issued by 
BASIC automatically at the end of each print statement) will be 
suppressed and the next print statement will resume printing on 
the same line where the last print left off. 


Examples: 

1@ PRINT Skip a line 

20 PRINT A,B,C Print variables A, B, and C auto- 
Matically tabbed into 16 
character fields 

3@ PRINT A; B; C Print A, B, and C with only 
one space separating them. 

49 PRINT “FOR SALE" Print a message 

5@ PRINT "TOTAL=";A Print the message followed by the 
value of variable A 

60 PRINT #4,X Print the value of X on I/O port 4 


OPEN 


The command OPEN #(FLN), (FILE SPEC) is used to open a disc 
file. The file number, (FLN), is an expression that must evaluate 
to the range 8 through 9. The file specification, (FILE SPEC), 
must be string variable or string literal which supplies the file 
name in standard DOS68 format. 


The type of file access (read or write) will be determined by the 
first usage of the file after opening. Before a BASIC program 
can read input or write output to a file, the file must have 
previously been opened by the OPEN statement. 


Multiple files may be opened with the same OPEN statement by 


using variables for (FLN) and (FILE SPEC) and repeating the 
series of statements. For example: . 
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16 INPUT “NUMBER OF FILES",F 
26 FORI=1TOF 

38 INPUT "FILE NAME",FS 

49 OPEN #1,FS$ 

5@ NEXT I 


CLOSE 


The command CLOSE #(FLN),#(FLN),... is for closing open files. 
The file number may also be an expression as with OPEN. The 
specified file number must have previously been opened by an OPEN 
statement. Example: | 


198 CLOSE #1, #2 


READ 


The statement READ #(FLN),(VARIABLE LIST) is provided to 
request data be read from a disk file. Input from a file is 
taken an item at atime - as the program needs it. (VARIABLE 
LIST) consists of one or more variables, either string or 
numeric, separated by commas. If the receiving element is a 
string variable, it will receive the data from the file up to the 
maximum string length of 89 characters. The line input buffer 
for a single item from a file is 8@ characters, 


A string item over 89 characters will be truncated, and if more 
then 88 characters are contained in a single item of input, the 
buffer input processing will be terminated, 


If the receiving element is a numeric variable, the input is 
scanned for a break character (a comma or a null) and that 
portion of the input - up to the break character - is’ then 
processed by a validation routine which verifies the number as 
being a valid numeric variable. If the number is invalid, Error 
#3 (ILLEGAL CHARACTER) will occur. 


RESTORE 


The statement RESTORE #(FLN),#(FLN) ,cee causes’ the files 
associated with the list of file numbers to be repositioned to 
the beginning of the file. Thus,-the data in the file may _ be 
reread. Note that this statement functions for files just as the 
RESTORE dscribed earlier functions for DATA statements. The file 
number may be that of file which is open for reading (input) or 
writing (output). 

18 OPEN #1,"PART.MST" (Quotes are not required) 

20 LET C = 

38 READ #1,A 

49 FOR I =1fMTOA 

50 READ #1,B 

68 PRINT B 

76 NEXT I 
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80 RESTORE #1 

99 LET C=C-l 

160 IF C <> @ THEN 38 
119 CLOSE #1 

128 END 


The above program causes File #1 named “PART.MST" to be opened, 
A counter (C) is set to 5 to keep track of the number of times we 
go through the file. The first item is read in from the the file 
and in expected to hold the number of items to follow. Data is 
read and printed until the item limit is reached. The file is 
then restored (rewound). The count, C, is decremented and if the 
result is not @ the process is repeated until the count does 
become @ in which case the file is closed and the program ended. 


This example could be adapted to listing a file just created, 
The RESTORE after the write sequence will close the file, rewind 
the file, and open the file for reading. 


SCRATCH FILE 


The SCRATCH statement is used to remove an existing file from the 
current disk directory and then re-enter it into the directory. 
After the file is re-entered into the directory it is opened for 
output (writing). The old file is lost from the disc and a new 
file with the same name is prepared to receive data. A file that 
has been opened for input (read) cannot be scratched until it is 
closed and then reopened. 


18 OPEN #1,"FILE.RND" 
28 SCRATCH #1 

3@ FOR I=1 TO 18 

49 WRITE #1,RND(O) 

5@ NEXT I 

68 RESTORE #1 

76 READ #1,1 

80 IF STATUS #1 = 6 THEN 116 
9 PRINT I 

198 GOTO 78 

11@ CLOSE #1 

120 END 


This program opens a file called "FILE.RND" and clears out all 
existing data with the scratch command. fThen it writes ten 
random numbers to the file, closes it, and then re-opens the file 
for reading with the RESTORE statement. The random numbers are 
read and printed until the end of file is encountered (STATUS = 
6) at which time the file is closed and the program ends. 
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WRITE 


The statement WRITE #(FLN),(VARIABLE LIST) allows the writing 
of the data indicated in the variable list to a disc file. The 
variable list may contain either string, or numeric variables, 
separated by commas. An error will occur on the first execution 
of the WRITE command if the file specified currently exists on 
the disk. To insure the availability of the file write access, 
use the SCRATCH command which will prepare the file to receive 
the output. 


STATUS 


STATUS #(FLN) is a function allowing for monitoring of error 
status of any specified file number. The status most often used 
is the end-of-file (EOF) which has a value of 6, The status 
number is that number returned by the disc file management 
system, Refer to the BFD-68 SYSTEM MANUAL for other values. It 
is a good idea to check the file status after a READ at least for 
end of file. If STATUS of a file is checked after opening, but 
prior to reading or writing, the absence or presence of the file 
may be established without getting a Basic Error (if the file 
were not. there). A STATUS of zero (@) means the file is there 
and non-zero means not there. 
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AUTO RUN 


It is possible for the user to save a copy of BASIC along with 
the source of a BASIC program and RUN or call, as ae transient 
command, the saved file and have it immediately begin execution. 
The transfer address for AUTO RUN is $0106, the first loaction to 
save is $0088, and to determine the last address to save, examine 
locations $0022 and $980623. 


Thus, the steps to make an auto-run file are: 
1) Load BASIC and create (or load in) the file to be auto-run. 
2) Type DOS to exit to the operating system. 


3) Use the resident ROM Monitor (MIKBUG, SMARTBUG, ...) 
to examine locations $9822 and $8923, 


4) Restart DOS68 by the warm start entry point 


5) Type: 
SAVE,<auto-run file name>,@,<contents of $22, and $23>,196 
(To make the file a transient file, add ",$" following 196). 


6) The auto-run file is now ready to run 
RUN, <auto-run file name> 
or . . 
<auto-run file name> if the ",$" was used 


If you append the auto-run file onto a copy of DOS68, then you 
can have Basic come up running as part of your DOS BOOT. 
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COMMANDS 

(used in direct mode) 
APPEND PORT 

CONT RUN 

DOS SAVE 
DIGITS *STRING 
FLIST TLOAD 
*LINE TPEND 
*LIST *TRACE OFF 
LOAD *TRACE ON 
*MON TSAVE 

NEW 


* commands that can 
be used within a 
program 


DISK FILE COMMANDS: 


OPEN - CLOSE 


MATHEMATICAL OPERATORS 


> 


Exponentiation 
Negation 
Multiplication 
Division 
Addition 
Subtraction 


1 +N #1 


QUICK BASIC REFERENCE 


FUNCTIONS 
ABS PEEK 
ASC PI 
ATAN POS 
CHRS$ RIGHTS 
cos RND 
DEF SGN 
EXP SIN 
INT SQR 
LEFT$  STRS$ 
LEN TAB 
LOG TAN 
MIDS VAL 


RESTORE SCRATCH 


READ 


STATEMENTS 
(used in programs) 
DATA #¥ON GOSUB 
#DIM #ON GOTO 
END #POKE 
FOR-NEXT #PRINT 
#GOSUB READ 
#GOTO REM 
#IF-THEN RESTORE 
INPUT RETURN 
#LET STOP 
USER 


# statements that can 
be used in the direct 
mode of execution 


WRITE STATUS 


RELATIONAL OPERATORS 


A 
tf wtvavei 


VAN 


PRECEDENCE OF OPERATORS 


(1) Exponentiation 
(2) Negation 
(3) Multiplication or Division 
(4) Addition or Subtraction 


Equal 

Not equal 

Less than 

Greater than 

Less than or equal 
Greater than or equal 


APPENDIX B;: CHARACTER CONVERSION TABLE 


ASCII CNTL HEX DEC ASCII HEX DEC ASCII HEX DEC 
NUL @ 288 80 , 2c 44 X 58 88 
SOH A 61° 1 - 2D 45 Y 59 89 
STX B @2 82 .  «2E 46 z 5A O90 
ETX Cc 63 03 / 2 47 [ 5B 9] 
EOT DD @4 04 6 636 48 \ 5c 92 
ENQ E @5 05 1 31 49 ] 5D 93 
ACK F 66 86 2 32 50 5E 94 
BEL G_ 87 07 3 33 51 _ -5F- 95 
BSH. @8 68 4 34 52 : 66 96 
HT I @9 09 5 35 53 a 61 97 
LF J A 10 6 36 54 b 62 98 
VT K_ 6B 11 7 37 55 c 63 99 
FF L_ 6c 12 8 38 56 d 64 100 
CR M 6D 13 9 39 57 e 65 101 
SON 6E 14 > 3A 58 f 66 182 
SI OO OF 15 ; 3B 59 g 67 163 
DLE P 1g 16 < 3C 68 h 68 104 
pel 6Q)tsdL 17 = 3D 61 i 69 105 
pc2 R12 18 > 3E 62 j 6A 106 
pc3.—s S_~—sd 19 ? 3F 63 k 6B 107 
ier a nn ry @ 46 64 ] 6c 6188 
NAK U 15 21 A 41 65 m 6D 169 
SYN v 16 22 B 42 66 n 6E 118 
ETB WwW 17 23 Cc 43 67 o 6F 111 
CAN xX 18 24 D 4A 68 p 70 =«-:112 
EM Y 19 25 BE 45 69 q 71 113 
SUB Zz JA 26 F 46 70 r 72 «#114 
Esc [ 1B 27 G 47 71 S 73, «115 
FS \ ie 28 H 48 72 t 74 116 
GS 1 ib 29 I 49 73 u 75 117 
RS ~ 4E 30 J 4A 74 V 76 «118 
us _siédarR 31 K 4B 75 w 77, ~=«:119 
SP 20 32 L 4c 76 x 78 120 
7 21 33 M 4D 77 y 79° «121 
" 22 34 N 45 78 z 7A 122 
23 35 O 4F 79 7B. «123 
$ 24 36 P 58 86 7c 0124 
$ 25 37 Q 51 81 7D 125 
& 26 38 R 52 82 7E 126 
' 27 39 —§ 53 83 DEL 7F 127 
( 28 40 T 54 84 

) 29 41 U 55 85 

* 2A «442 vo 55 85 

+ 2B 43 Ww 57 87 


APPENDIX Cs: MEMORY LOCATIONS USED BY BASIC 


8820 - 6821 Contains the start of BASIC program (source) 


9922 - 8923 Contains the next available memory location after 
the BASIC program (source) 


9624 - 8825 Contains the next available memory location after 
the BASIC source program and any defined variables 


8826 - 9827 Memory limit 
09628 - 6829 Contains the pointer for USER 


69830 - 6931 Contains the address of the present arithmetic 
value in use during a USER call 


0109 Cold start address — 
0193 Warm start address 
0196 Auto-run address 


8199 — 910A Size of the BASIC interpreter 

910B Number of the control port 

919C - 919D Maximum memory size available for BASIC to use. 
919E ~ O19F Address of home Clear end-of-frame string 

@118@ - 8111 Address of carriage returnline feed string 
@112 - #113 Address of ERROR routine (Error in ACCB) 


6114 - 613A RESERVED for future jump addresses 


§13B Line delete control character (CTL X) 

813C Character delete control character (CTL H) 
913D | Character delete ECHO character (NULL) 
§13E BREAK control character (CTL C) 

013F Jump Table | | 


NOTE: The last 256 bytes of memory available are used as a 
string expression buffer and for the machine stack, 


A®O4A - A@TF Part of this area is used by DOS68. See the DOS68 
reference manual for the actual addresses used, 


APPENDIX D: ERROR MESSAGES 
The following is printed when an error occurs: 
ERROR ¢ ----- IN LINE # ----- 
The line number will be 9906 for errors in direct mode execution. 


ERROR MEANING 
Maximum variable length exceeded (over 255) 


G2 Input error 

93 Illegal character or variable 

84 Missing ending " in print literal 

5 Dimension error 

06 Illegal arithmetic 

07 Line number not found 

08 Attempt to divide by @ 

89 Maximum subroutine nesting exceeded (over 8 levels) 
16 RETURN statement executed without a prior GOSUB 

11 Illegal variable 

12 Unrecognizable statement - also common disc command error 
13 Parenthesis error 

14 Memory full 

15 Subscript error 

16 Too many FOR-NEXT loops active (maximum is 8) 


17 NEXT X statement without prior FOR X=... 
18 Nesting error in FOR-NEXT 


19 Error in READ statement. 

20 Error in ON statement 

21 Input overflow (more than 8@ characters on input line) 

22 Syntax error in DEF statement 

23 FN function error. Either syntax error in FN or FN is not define 
24 Error in STRING usage, or mixing of numeric and string variables 
25 String buffer overflow, or string extract too long 

26 Not used in Logical I/O Basic 

27 VAL function error - string starts with a non-numeric character 
28 Cannot take LOG of a negative number 

29 Error message error 

36 File number is not in range of ® through 9 

31 Unable to open file for write 

32 Attempt to write to file not open for write 

33 Unable to open file for read 

34 Attempt to read from a file not open for read 


35 Attempt to read data beyond end of file 
36 Specified file failed to close 
37 Specified file failed to delete 


38 Disk Directory error 

39 Disk unit (drive) number error 
40 Diskname (FREN) error 

41 Memory error 


Error numbers 69-69 indicate that DFM (the disc file handler) has 
detected an error in handling the file number corresponding to 
the least significant digit of the number 40-49. DFM'‘s own error 
code will also be displayed (see the BFD-68 system manual for 
value of the DFM error codes). 


APPENDIX E3: 


0838 


9928 
9028 


COB 
COOB 


C883 


C885 
C008 
COBRA 
C8 OC 
COOF 


CO 


TE 


0) 


FF 
DE 
6C 
FE 
39 


00 


C885 


EXAMPLE FOR USER FUNCTION 


* 
* 
* 
* 
* 
* THE 'X' 
* 
* 
* 
* 
UPOINT EQU 
* 
ORG 
FDB 
* 
ORG 


USTART JMP 
* 


THE FOLLOWING EXAMPLE OF HOW TO USE USER 
MULTIPLIES THE NUMBER ‘'X' GIVEN USER(X) 

BY TEN AND THEN RETURNS TO BASIC. NOTE HOW 
IS REFERENCED IN THIS PROGRAM - . 
THIS IS THE MOST COMMON MISUNDERSTANDING 

ON HOW USER WORKS. 


$30 ADDR OF USER DATA 

$9828 | ADDR OF POINTER TO USER PGM 
USTART SET UP POINTER TO USER PGM 
SCHOO 

BEGIN 


* SAVE AREAS FOR USER PGM 
* 


ISAVE FDB 
* 


BEGIN STX 
LDX 


INC. 


LDX 
RTS 


END 


) 

ISAVE SAVE THE INDEX REGISTER 
UPOINT LOAD X W/ADDR OF USER DATA 
6,X INC THE EXPONENT BY 1 
ISAVE | RESTORE THE INDEX REGISTER 


RETURN TO BASIC 


APPENDIX F3 PARTIAL SOURCE LISTING 


eae eed ce een Ee eaten na mee a 


175 = 


6198 0176 ORG $1988 
O177 = 
9108 BD @2A6 0178 BEGIN JSR START COLO START 
9193 BD 6C31i 8179 JSR RSTART SOFT START 
9106 7E eCSsd 8198 JMP AUTO RUTO RUN 
9181 « 
0109 28 73 0182 BUFBAS FDB SRCBEG END OF BASIC & WORK AREAS 
9198 92 6183 CNTPRT FCB 2 CONTROL PORT 
B18C 68 88 0184 MEMMAX FOB $6000 MEMORY LIMIT - YMEMAX FOR O0OS6S. Se 
@19E OB BD 9185 HOMSTR FDB HOMLIS HOME/CLEAR EOF 
0118 O3 BA 0186 CRLFST FDB CRLFS CR/ALF STRING 
0112 OD @A @187 ERRPNT FOS ERROR ADDR OF ERROR RTN ¢<# IN ACCB> 
0188 = 
0114 43 9189 NOTICE FCC “COPYRIGHT 1979 SMOKE SIGNAL BROADCASTING’ 
@199 « 
G13C 88 08 0191 FOB $0008, $@060 RESERVED FOR FUTURE 
8146 88 90 6192 FDB $0008, $8006 JUMP ADDRESSES 
0144 88 88 0193 FOB $8006, $6000 
0194 « 
e148 18 9195 DELINE FCB $18 CTL xX 
0149 88 @196 DELCHR FCB $68 CTL # 
O14A 88 0197 BSECHO FCB $80 NULL 
61446 63 0198 BRKCHR FCB $3 CTL Cc 
0199 
e208 
@2014 « I/O DEFINITION TABLE - CONFIGURATION BYTE 
e202 * 
9203 *BIT#! 7? | 6 § S&S | € € FS € @ tft 42 tft DB 4 
C204 « H { H { ! H H { H 
9205 wHEX | 68 {| 40 ! 28 { 140 !§ 88! O€ ft B82: O11 
8206 . 
8207 * CTL RES MPC PIA PIA STD x64 x16 
8268 * TERA cas PTA IN OUT PIA SER SER 
8209 
8210 « CONFG = 8 -> NON-STD I/O Cie. Video Board - Graphics> 
@211 
@212 *« LOGICAL UNIT TABLE ENTRY - 
G213 
G214 * @ -> CONFIGURATION BYTE 
C215 « 1-2 <-> ADDRESS OF I/O DEVICE 
@216 « 3-S -> JUMP CHAR OUTPUT 
6217 «= 6-8 -> JUMP CHAR INPUT : 
0218 « 9-414 -> JUMP PORT INITIALIZATION 
8219 . : 
e226 
@14C @221 LUTBLE EQU * 
e222 « 
@223 *« LOGICAL UNIT #9 
G2ee4 * 
O14C 04 e2e5 Lue FCB $01 
0140 F7 ES 8226 FOB SF 7EO 
O14F 7E O4FC Be27 JMP CHROUT 
@152 7E S22eC e229 JMP CHRIN | 
0185 7E O1AC e229 JMP IOINIT 
@230 « 
9231 * LOGICAL UNIT #4 
e232 *« 


0158 01 6233 LU FCB $01 
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0159 F? E4 8234 FOB SF7E4¢ 
0158 7E O1FC 8235 JMP CHROUT 
G1iSE 7E e22C 8236 JMP CHRIN 
0161 7E O1AC 8237 JMP IOINIT 
C238 * 
8239 *« LOGICAL UNIT 42 
8248 * 
0164 81 0241 LUe FCB $81 
9165 F? ES 9242 CTLADR FDB SF7ES CHGD TO YCPORT IF bOS6S. 5d 
@167 7E 72Ci 8243 CTLOUT JMP ZPUTCH “ne SEE NOTE BELOW 
BAiGA 7E 7eC4 0244 CTLIN JIMP ZGETCH “ee SEE NOTE BELON 
9160 7E O1AC 8245 JMP IOINIT 
@246 « . 
8247 « NOTE: TO HAVE BARSIC’S CONTROL PORT NOT USE 
@248 « THE WIDTH, DEPTH. ETC. PRRAMETERS THAT 
8249 « YOU HAVE SET FOR DOS —- CHANGE THE JUMP 
8258 « AT CTLOUT TO GOTO ’CHROUT’ IN BASIC & 
e251 « THE JUMP AT CYLIN TO GOTO ’CHRIN’ 
82352 
e253 
S254 « LOGICAL UNIT #3 
9255 = 
9170 61 e256 LUS FCB $01 
O171 F7 EC 6237 FOB SF7EC 
@173 7E O1FC 9258 JMP CHROUT 
O176 7E Be2C 8259 JMP CHRIN 
@179 7E O1AC 8268 JMP IOINIT 
e264 « 
G262 *« LOGICAL UNIT #4 
9263 * 
917C O4 9264 LU4 FCB $04 
0170 F7 FS 8265 FOB SF7FO 
O17F 7E @1FC 6266 JMP CHROUT 
0182 7E 8220 8267 JMP CHRIN 
9185 7E O1AC 8268 JMP IOINIT 
9269 * 
9279 *« LOGICAL UNIT 4€5 
C271 « 
0188 64 ge72 LUS FCB $04 
@189 F7 F4 e273 FOB SF7F4 
@18B8 7E G4FC 9274 JMP CHROUT — 
@18E 7E e22C 9275 SMP CHRIN 
01914 7E O1AC 8276 JMP IOINIT 
O277 , 
0278 « LOGICAL UNIT #6 
0279 *& he 
0194 o4 G288 LUG FCB $064 
9195 F7? FS 62914 FOB SF7FS 
0197 7E O1FC B282 _JMP CHROUT 
@19A 7E OeeCt 8283 JMP CHRIN 
0190 7E B1ARC O204 JMP IOINIT 
g285 = 
e286 « LOGICAL UNIT 4¢7 
@297 « 
G1AB O04 e288 LU? FCB $04 
@1AL F?7 FC 8289 . FOB SF7FC 
@1AS 7E O1FC 82990 JMP CHROUT 
@14AG 7E B22C 8291 JMP CHRIN 
@1A9 7E O1AC 8292 JMP IOINIT 


e293 0 om on ame er am am an me om OP 8 an ae em ae ee ae GD BO GMP to Ge am en 20 on on a> am Gn a on as a on enn 
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@iACc 
GLARE 
9188 
61Be 
8184 
6186 
9189 
018A 
016C 
@1ED 
0108 
101 
@1C3 
81C5 
6107 
@1Cs 
@1iCA 
61CB 
91Co 
OiCF 
0101 
9103 
0105 
9107 
8109 
0106 
10D 
O1LDF 
O1E1 
91Ee 
G1E4 
O1E6 
@1E8 
91EAR 
@iEC 
O1EE 
O1FO 
O1F 1 
GiF3 
O1FS 
O1F 7 
O1F9 
O1iFB 


@1FC 
O1FE 
82008 
9202 
8204 
8206 
8208 
820A 
929C 
G920E 


8294 
8295 
8296 
9297 
8298 
8299 
8388 
6301 
8302 
9383 
0304 
8385 
8306 
0307 
9398 
8309 
0318 
311 
6312 
9313 
0314 
9315 
8316 
0317 
0313 
0319 
9328 
6321 
e322 
8323 
8324 
8325 
0326 
0327 
8328 
9329 
8238 
0331 
9332 


8333 


9334 
8335 
0336 
Q@337 
8338 
8339 
9348 
O3414 
8342 
0343 
8344 
8345 
0346 
0347 
0348 
8349 
8358 
351 
8352 
8353 


« INITIALIZE 


IOINIT 


IOINTR 
IOPIA 


ITOPTAL 


IOPIAe C 


* DO CHARACTER OUTPUT 


CHROUT 


LOX 
LOR 


DDDD 
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I/O PORT AS SPECIFIED 


LUPTRX 


8 CONFG, X 


OPORT. X 


8 #S9OF 


go 2D DDBATD BD DW 


on DDDD 


A 
A 
A 
A 


RTS... 


CMP 
BEQ 
LOA 
BEQ 
LOX 
BIT 
BNE 
BIT 
BEQ 
LDA 


ITOINTR 
TOINTR 
#4111986 
IOPIA 


DELAYS 


#3 
@. X 
#$14 


8, x 


#2108 
IOPTIAL 
1,X 
3% 
Q. x 
2@, x 
@, X 
#$3E 
1,% 
##2E 
3% 


#X1608 
ITOPTARZ 
1, 
@-1 
@. xX 
#93E 
1.x 


1,X 


@, x 
#$2E 
1,% 


e$7F 
CHROR 
CONFG, X 
CHROR 
OPORT, X 
#21109 
OUTPIA 
#4141 
CHROR 
@. x 


‘CLEAR NU BITS 


CONTROL TERM 
OTHER TYPE IO 
PIR TYPE 

VES 


MASTER CLEAR ACIA 
WORD SELECT BITS 
ADD DIVIDE SELECT 


STO PIA 
NO 
INIT A AND B SIDES 


OUTPUT PIA 
NO 
SET PTA A FOR OUTPUT . 


SET PIA A FOR INPUT 


NO OUTPUT REQ“D 
PIA OUTPUT 

YES 

ACIA OUTPUT 

NO 

WAIT FOR TORE 
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8219 
212 
0214 
9216 
0217 
9219 
921A 
921C 
@21E 
9228 
e222 
e224 
e225 
e227 
. 8829 
822b8 


eeec 
B922E 
8230 
e232 
8234 
9236 
8238 
823A 
B23C 
9230 
G23F 
9241 
8243 
8245 
0247 
9249 
8248 
8240 
G24F 
251 
8253 
8255 
9e57 
8259 
e258 
9250 


4 
FA 
re & 


80 
36 
@1 
3E 
O21 
DF 


01 
FC 
80 


8354 
8355 
03356 
8357 
8359 
9359 
0368 
0361 
@36e2 
8363 
0364 
6365 
0366 
0367 
0368 
8369 
8376 
8374 
372 
0373 
374 
0375 
8376 
8377 
8378 
8379 
8388 
9361 
83382 
8383 
8384 
83385 
9286 
0387 
9388 
9389 
0398 
9391 
e392 
O393 
BS94 
8395 
0396 
@397 
8398 
8399 
0400 
8401 


CHROR RTS 
OUTPIA SET 


> 8 DVUsVsD 


* DO CHARACTER INPUT 


CHRIN LOA 
BEQ 
LOX 
BIT 
BNE 


INACIA LDA 


INECHO LOX 
INPIA BIT 


INPIA2 LDA 


CHRINR RTS 


CONFG, X 
CHRINR 
OPORT, ¥ 
#419108 
INPIA 
#411 
CHRINR 
8. x 


INACIA 
1, x 

$$7F 
4$7F 
INACIA 
LUPTRX 
OFFOUT, x 
#100 
INPIA2 
3X 
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OUT CHAR 


LOCK INTERRUPTS 
OUTPUT CHAR 


RESTORE INTERRUPT STATE 
WAIT FOR CHAR TRANSFER 
CLEAR INTR FLAG 


PIA INPUT 

YES 

ACIA INPUT 
NO 

WAIT FOR RDORF 


GET CHAR 
MASK PARITY 

DEL CHAR 

YES, GET NEXT 

ECHO CHAR OUT - RTS FOR NO ECHO 


STD PIA 
NO 
WAIT FOR INTR ON 6B 


READ B SIDE 


ECHO CHAR 
WAIT FOR INTR ON R 


READ A SIDE _ 
NO ECHO, INPUT ONLY 
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e25E 
825F 
8260 
262 
8264 
8266 
9268 
826A 
e26C 
S26E 
8278 
e272 
0274 
6276 
8273 
927—~A 
e27C 
B27E 
281 
8283 
9296 
e268 
0289 
928A 
8288 
seed 
@28E 
8298 
8292 
8294 
8296 
8298 
829A 
829C 
G29E 
82A0 
g2Re 
2A4 


BS2A6 
B2—A9 
B2AB 
B2AC 
@2AE 
9261 
8263 
8285 
82B8 
e268 
92BE 
eeCi 
eeC4 
gels 
vec 
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6403 * PROCESS CHECK FOR BREAK 


e404 


8405 


0406 
9407 
0408 
6489 


6410 


0411 
0412 
6413 
0414 
6415 
0416 
8417 
0418 
0419 
8420 
0421 
0422 
0423 
424 
e425 
0426 
e427 
8428 
8429 
0439 
B431 
9432 
8433 
8434 
8435 
0436 
0437 
6438 
6439 
8448 
0441 
0442 
6443 
0444 
8445 
9446 
8447 
0448 
8449 
8458 
0451 
8452 
@453 
8454 
8455 
8456 
9457 
9458 
8459 
0468 
0461 


BREAK 


BREAKS 
BREAKi 


BREAKS 


BREAKS 


BREAK4 


BREAKS 
BREAKG 
BRERK? 


ow woD 


ZTOSAYX 
LUBRKX 
CONFG, X 
OPORT. X 


04110111 


BREAKEe 
#414 
BREAKS 
#419188 
BRERK4 


#4180008 


BRERK? 
BRERK2 
LUBRKX 
OFFIN, X 
BRKCHR 
BREAKe 
READY 
TOSAVX 


@. x 


BREAKe 
BRERK® 
#4198 

BREAKG 


8B 3.x 


BREAKE 


BRERK2 


— BREAKE 


‘USE DEFAULT PORT ONLY 


ACTA, PIA INPUT, MPC 
NO 

ACIA 

YES 

PIA INPUT 


WRONG, CONFIGURATION TO BREAK 
GOTO INPUT PROCESSOR 


BREAK CHAR? 
NO 


STOP CYCLING 
RESTORE AND CONT 


ACIA PORT 


STO PIA 
NO < 
CHECK 8B SIDE 


PIA INPUT ONLY 


CHECK SIDE A 
MPC PIA 
GO INPUT. HOPE MIKBUG INEEE 


* BASIC’S START-UP ROUTINE | 


START LOA A 


STA 
TPA 
STA 
LOA 
CMP 
BNE 
LDX 
STX 
LDX 
STX 
LOA 
CMP 
BLO 
STA 


A 
A 
A 
A 


CNTPRT 
CONSOL 


INTRP 
YHONY 
#350 
START4 
#READY 
YABRTY 
YCPORT 
CTLRADR 
YMEMAX 
#$38 
START4 
MEMMAX 


CONTROL PORTE 


SAVE PROC STATUS 
DOS VERSION 


_ I8 IT Dosée. Se 


NO 

BREAK RETURN RODR 

STORE IN DOS BREAK ADDR 
PARAMETER TABLE CTL PORT ADDR 
SAVE IN PORT@2 JUMP TABLE 
PARAMETER TBL MEM LIMIT 

MIN MEMORY REQD FOR BASIC 


SAVE IN BASIC’S MEMMAX 
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@2CB 7F 6180 a462 CLR MEMMAX+4+1 FORCE BOUNDARY 
B2CE BD 167F 8463 START4 JSR PORTCN INITIALIZE CTL PORT 
@201 DE 841 O464 LOX LUPTRX 
@203 DF 83 6465 STxX LUBRKX 
@205 7E OBBS 8466 JMP NEW 
O467 * 
@469 * 
6478 *« OUT HEX RTN 
0471 
e208 AE BO 8472 OUTH LOA A OB, X 
@2DAR SD OD 0473 BSR OUTHL 
@20c AEG OO 0474 LOR A 8. X 
G20E 88 6475 INX 
B20F 28 OC 8476 BRA OUTHR 
C477 * 
@2E1 8d FS 9478 OUT2HS BSR OUTH 
B2E3 SD FS 8479 BSR OUTH 
B2ZE5 S6é 28 8489 OUTSP LDA A SPACE 
@2E7 29 CE 64814 BRA OUTCH 
e482 = 
@2E9 44 @483 OUTHL LSR A 
@2ER 44 0484 LSR A 
@2EB 44 9485 LSR A 
B2EC 44 8486 LSR A 
@2E0 84 OF 0487 OUTHR AND A SSF 
@2EF SB 38 o488 ADD A 8°O 
GeFi 81 39 6489 CMP R e°9 
B2F3 23 82 0498 BLS OUTCH. 
@2F5 8B 07 @491 ADD A 67 
6492 & 
@493 * OUTPUT CHAR RTN 
0494 « -, 
B2F? 37 @495 OUTCH PSH B 
@eFS 36 8496 ‘PSH A 
@2F9 BD S25E 8497 JSR BRERK 
@2FC DF 7F 9498 STx LTOSAVX 
@2FE DE 81 9499 Lox LUPTRX 180/26 
8308 AD O3 0500 JSR OFFOUT. x 
@302 20 32 @S01 BRA BREAKe 
@Se2 « — 
@S03 « INPUT CHAR RTN 
@504 = 
@304 DF 7F 9598S INCH STx TOSAVX 
@306 37 @Se06 PSH 6 
O307 DE 81 8507 LOX LUPTRX 10/726 
@309 AD 06 95908 JSR OFFIN, X- _ 
@30B 36 8599 PSH A 
@39C 7E G27E 63518 JMP BREAKL 


@514 * 


APPENDIX G: HOW TO REDUCE EXECUTION TIME 


l. 


26 


36 


4, 


Subscripted variables require considerable time; use 
non-subscripted variables whenever possible. 


The number of calculations involved in the transcendental 
functions. (SIN, COS, TAN, ATAN, EXP, and LOG) make them 
Slow. Use these functions only when necessary. 


BASIC searches’ for functions and subroutines in the source 
file. Placing often called routines at the start of the 
program will reduce BASIC's search time. 


Variables are entered into the symbol table as they are 
referenced. BASIC then searches the symbol table each time a 
variable is used. Therefore, reference a frequently called 
variable early in the source program so that it comes near 
the front of the table. 


Numeric constants are converted each time they are 
encountered. If a constant is used often, it should be 


assigned to a variable and the variable name used instead. 


1. 


26 


5 


6s 


7. 


APPENDIX H: MEMORY USAGE IN BASIC 


REM statements use space, so use them wisely. 
Each non-subscripted numeric variable uses 8 bytes. 
Each numeric array uses 6 bytes + 6 bytes for each element, 


If the default string length of 32 characters is used, each 
non-subscripted string variable uses 34 bytes and each 
string array uses 6 bytes + 32 bytes for each element. Use 
the STRING command to explicitly allocate the size you need. 


An implicitly dimensioned variable creates a 10 X 18 array. 
If you do not intend to use all 160 elements use the DIM 
statement to explicitly allocate only the space you need. 


Each BASIC line uses 2 bytes for the line number, 2 bytes 
for the encoded key word, 1 byte for the line length, 1 byte 
for the end of line terminator, plus 1 byte for each 
character following the key word. Reduce memory space by 
using as few spaces as possible. 


Each file number opened takes 177 bytes. Reusing the same 
file number (after the file closing) in subsequent OPEN 
statements will save allocation of new space when the old 
space is no longer required. 


SSB BASIC checks to find out if it is running with DOS68 
Version 5. If it is, the value that is in MEMMAX (DOS 
parameter table) is used for BASIC's memory limit. Since 
BASIC must start its stack on a page boundary, only the high 
order address byte is used. The low order byte in MEMMAX 
will be ignored and BASIC will always use 68 as the low 
order byte. 


APPENDIX I: DEFAULT VALUES ON SYSTEM INITIALIZATION 


The following table lists the default values of system parameters 
that are set on system initialization or on executing the NEW, 
LOAD, or CHAIN commands. 


TRACE is turned off, 

DIGITS is set to floating point mode. 
RJUST is set to floating point mode, 
STRING is set to 32. 

BASE is set to l. 


LINE is set to 64. 


APPENDIX J: MODIFYING LOGICAL I/O BASIC‘S I/0 


The new LOGICAL I/O drivers in SSB BASIC makes the _ basic 
essentially self contained, All the BASICS reference SEGE3 
(control) and S$A@@8 (stack pointer) and the disk versions 
reference the DOS -- these are the only external references. 


The philosohy behind using logical I/O is that the user. may 
easily modify the basic to interface to virtually any I/O device 
or to special machine language subroutines for features that are 
not included in the basic. The easiest way to get data into or 
out of basic is thru the I/O routines. This way, all of basic's 
edits are performed and data is normalized so that when 
referenced later by the program there will not be problems 
associated with invalid data (maybe bad data - but at least 
syntactically correct!) 


THE CONFIGURATION BYTE 


The following is a description of the available 
configurations in basic: 


$8X - Control terminal x may be 6, 1, 2, or 4. The control 
terminal is not initialized. The ~X° will determined 
the type of I/O that will perfromed. 


$48 - UNUSED 


$29 - If the user is still using an MP-C type of I/O card with 
either SWTBUG or MIKBUG the config byte should be set to 
SA® (ctl port & mp-c) for logical unit 1 and the jumps to 
CHROUT and CHRIN change to OUTEEE and INEEE. 


$18 - Input only from a parallel device (either side of an MPL-A) 
$88 - Output only to a parallel device (either side of an MPL-A) 


$84 - Input (side b) and output (side a) on a parallel device. 
this is the way basic used the parallel I/O ports in 
the past. 
basic used the parallel I/O ports in the past. 


$62 - Serial I/O with X64 clock - this will select 118, 134.5 
300, 4800, 9608 baud on the CHIEFTAIN microcomputers. 


$91 - Serial I/O with a X16 clock as used in the SWIPC 6800 
computer, and for the highest baud rates on the CHIEFTAIN. 


$00 - Other - see table description for more information, 


ADDRESS OF I/O DEVICE 


Basic doesn't really care what address you assign to and I/0 
device. There is no longer an ERROR 26 in Basic - if there isn't 
an I/O device at the address you specify, you may lose control of 
Basic - so be very careful when modifying the I/O addresses. For 
the standard I/O types, Basic will assume a two byte location - 
ie. Basic supports Dual serial I/O cards and also both sides of a 
parallel card as individual I/O locations. 


LOGICAL I/O JUMP TABLE 


This is where you may use the ‘ports' of. Basic for your own 
routines. If you speecify $@@ for the configurator byte - Basic 
will do nothing in it's I/O routines, but all of the I/O jumps in 
the jump table are made. Thus if you modify the jump table to go 
to your own routines, you will be able to pass data to Basic 
using INPUT or PRINT, etc, or just go execute some code that you 
want exectued, 


THE CONTROL PORT 


With DOS68 Version 5, the control port address will be 
picked up from the parameter table and will always be logical 
port 2. If you are not using DOS68 Version 5, the control port 
should be assigned to the port your operating system talks thru. 
For SWIBUG, this is 1 and for SMARTBUG it is 2. There are two 
locations that MUST be modified when changing the location of the 
control port. The first is CNTPRT which is located at S$@19B - 
this is equal to the number of the port i.e., 1, 2, 3, 4 etc. 
The other location is configuration byte of the logical unit 
corresponding to the number that was put into CNTPRT. 


MODIFYING AND SAVING BASIC 


Prior to getting too involved in modifying Basic, the user 
should establish the size of Basic. The starting address for all 
verisons is $9198 and the transfer (execution beginning). address 
is $8100. The easiest way of getting a ‘safe' ending address is 
to memory examine locations $8199 and $@10A, which gives you the 
ending address of Basic and work areas. This is slightly greater 
than what really needs to be saved, but not by much. To get the 
exact location, SSB Disk users can “FIND' the Basic PRIOR to 
loading it into memory - and take note of the address where the 
load ends. o 


After knowing the starting, ending and transfer addresses, 
make your modifications and then re-save the Basic. 


